home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 2 / 02 / tips & tricks / lesepd < prev   
Encoding:
AmigaDOS Script File  |  1995-06-01  |  559 b   |  26 lines
  1. .key dest
  2. .bra {
  3. .ket }
  4. version >nil: exec.library 37 ;OS2.0 vorhanden?
  5. if warn
  6.   echo "Benötige OS 2.0 oder höher"
  7.   quit 5
  8. endif
  9. LAB NochmalLesen
  10. if val $kickstart GT 38 ;OS 3.0?
  11.   set choice `requestchoice "Batch Req" "Nächste Disk einlegen" "Ok|Ende"`
  12.   if EQ `get choice` 1
  13.     dir >>{dest} df0:~(c|libs|devs|l|fonts|s|system) DIRS
  14.     skip NochmalLesen BACK
  15.   endif
  16. else   ;OS 2.0
  17.   ask "Nächste Disk einlegen (y/n)"
  18.   if warn
  19.     dir >>{dest} df0:~(c|libs|devs|l|fonts|s|system) DIRS
  20.     skip NochmalLesen BACK
  21.   endif
  22. endif
  23. sort {dest} {dest}
  24. quit 0
  25.  
  26.